Apple Reference & Presentation Library 5 (Internal Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Gen. / America Online Demo / Online Files / Online CCL / Online CCL.rsrc / AOcm_500_YoModem < prev next >

Wrap

Text File | 1989-09-25 | 6KB | 258 lines

! -------------------------------------------------------------------- ! YO-YO MODEM.ALCL ! By: David Steinberg ! ! Date: June 20, 1989 ! Changed 8/8/89 By DMC to match on "OK" after AT command ! Rev: 1.00 !---------------------------------------------------------------------- ! ! Connect Sequence: ! -LABEL 0 Revision 5 DsplyMsg Verifying Modem Setup CanBtn 30 { if cancel button - just exit } SetTries 0 ChrDelay 2 ! !---------------------------------------------------------------------- ! Check at 9600 Baud first. ! -LABEL 1 { wake up the modem } Jump 11 {Skip 9600 & 4800 for now} ! SerReset 9600 0 8 1 Pause 30 ! DsplyMsg Sniff at 9600 Flush ! ! MatchStr 1 2 OK MatchStr 2 2 NO MatchStr 3 2 ERROR MatchStr 4 2 > { Special case for Avatex 1200 modems} ! Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 2 ! !Changed 8/8/89 by DMC top not look for 2 ok's MatchStr 1 5 OK MatchStr 2 6 NO MatchStr 3 6 ERROR MatchStr 4 6 > { Special case for Avatex 1200 modems} MatchStr 5 3 AT ! Pause 40 { Allow modem to settle between commands.} Xmit AT\13 Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 6 { Try lower baud rate...time out error on modem.} ! -Label 3 MatchStr 1 5 OK Wait 200 Jump 6 ! -Label 5 ! DsplyMsg Successful Sniff at 9600 Exit 9600 ! !---------------------------------------------------------------------- ! !---------------------------------------------------------------------- ! Check at 4800 Baud. ! -LABEL 6 { wake up the modem } SerReset 4800 0 8 1 Pause 30 ! DsplyMsg Sniff at 4800 Flush ! ! MatchStr 1 7 OK MatchStr 2 7 NO MatchStr 3 7 ERROR MatchStr 4 7 > { Special case for Avatex 1200 modems} ! Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 7 !Changed 8/8/89 by DMC top not look for 2 ok's MatchStr 1 10 OK MatchStr 2 11 NO MatchStr 3 11 ERROR MatchStr 4 11 > { Special case for Avatex 1200 modems} !Changed 8/8/89 by DMC top branch to 8 on finding AT MatchStr 5 8 AT ! Pause 40 { Allow modem to settle between commands.} Xmit AT\13 Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 11 { Try lower baud rate...time out error on modem.} ! -Label 8 MatchStr 1 10 OK Wait 200 Jump 11 ! ! -Label 10 ! DsplyMsg Successful Sniff at 4800 Exit 4800 ! !---------------------------------------------------------------------- ! ! !---------------------------------------------------------------------- ! Check at 2400 Baud. ! -LABEL 11 { wake up the modem } SerReset 2400 0 8 1 Pause 30 ! DsplyMsg Sniff at 2400 Flush ! ! MatchStr 1 12 OK MatchStr 2 12 NO MatchStr 3 12 ERROR MatchStr 4 12 > { Special case for Avatex 1200 modems} ! Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 12 MatchStr 1 13 AT MatchStr 2 16 NO MatchStr 3 16 ERROR MatchStr 4 16 > { Special case for Avatex 1200 modems} ! Extra MatchStr for OK added... ! If we get an ok at this point, all is well. MatchStr 5 15 OK ! Pause 40 { Allow modem to settle between commands.} Xmit AT\13 Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 16 { Try lower baud rate...time out error on modem.} ! -Label 13 MatchStr 1 15 OK Wait 200 Jump 16 ! ! -Label 15 ! DsplyMsg Successful Sniff at 2400 Exit 2400 ! !---------------------------------------------------------------------- ! ! ! !---------------------------------------------------------------------- ! Check at 1200 Baud. ! -LABEL 16 { wake up the modem } SerReset 1200 0 8 1 Pause 30 ! DsplyMsg Sniff at 1200 Flush ! ! MatchStr 1 17 OK MatchStr 2 17 NO MatchStr 3 17 ERROR MatchStr 4 17 > { Special case for Avatex 1200 modems} ! Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 17 MatchStr 1 18 AT MatchStr 2 21 NO MatchStr 3 21 ERROR MatchStr 4 21 > { Special case for Avatex 1200 modems} MatchStr 5 20 OK {Got the ok, successfull sniff at 1200} ! Pause 40 { Allow modem to settle between commands.} Xmit AT\13 Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 21 { Try lower baud rate...time out error on modem.} ! -Lable 18 MatchStr 1 20 OK Wait 200 Jump 21 ! ! -Label 20 ! DsplyMsg Successful Sniff at 1200 Exit 1200 ! !---------------------------------------------------------------------- ! ! !---------------------------------------------------------------------- ! Check at 300 Baud. ! -LABEL 21 { wake up the modem } SerReset 300 0 8 1 ! DsplyMsg Sniff at 300 Pause 30 Flush ! ! MatchStr 1 22 OK MatchStr 2 22 NO MatchStr 3 22 ERROR MatchStr 4 22 > { Special case for Avatex 1200 modems} ! Xmit +++ { Get the modems attention} Wait 200 { Pause for 2 seconds, minimum gap required} ! -Label 22 MatchStr 1 23 AT MatchStr 2 26 NO MatchStr 3 26 ERROR MatchStr 4 26 > { Special case for Avatex 1200 modems} MatchStr 5 23 OK ! Pause 40 { Allow modem to settle between commands.} Xmit AT\13 Wait 200 { wait for 'OK' from modem - fall thru if timeout } Jump 26 { Try lower baud rate...time out error on modem.} ! -Label 23 MatchStr 1 25 OK Wait 200 Jump 26 ! ! -Label 25 ! DsplyMsg Successful Sniff at 300 Exit 300 ! !---------------------------------------------------------------------- ! -Label 26 {generic} Talert Please take the following steps:\13\13 1) Turn your modem off; then back on.\13 2) Make sure that your modem and phone line are connected correctly.\13 3) Try again. ! -Label 27 Alert 35 \13If the problem persists, call ~APPL customer service at ~ACUS. Exit -1 ! ! ! -Label 30 {User cancelled, just exit....} Exit -111 ! ! *-Label 1 *Exit 0 ! ###